Dim StrFilePath As String
Dim StrDirPath As String


Private Sub Command1_Click()
Dim StrNewName As String
Dim StrNewPath As String

StrNewName = InputBox("Enter new FileName", "Rename")

StrNewPath = File1.Path
If Right(File1.Path, 1) <> "\" Then
    StrNewPath = StrNewPath + "\"
End If
Name StrFilePath As StrNewPath + StrNewName
End Sub

Private Sub Command2_Click()
Dim intA As Integer
intA = MsgBox("Permanently Delete the file " + StrFilePath + " ?", vbYesNo, "Deletion")
If intA = vbYes Then Kill StrFilePath

End Sub

Private Sub Command3_Click()
Dim StrSearch As String
StrSearch = Trim(InputBox("Enter FileName to search", "Search"))
If Dir(StrSearch) <> "" Then
    MsgBox ("File Found.")
Else
    MsgBox ("File not Found.")
End If

End Sub

Private Sub Command4_Click()
Dim StrDirName As String
StrDirName = Trim(InputBox("Enter NewFolder name", "NewFolder"))
MkDir StrDirPath + StrDirName

End Sub

Private Sub Command5_Click()
Dim DeletePath As String
Dim intA As Integer

DeletePath = StrDirPath

intA = MsgBox("Permanently Delete the Folder " + DeletePath + " ?", vbYesNo, "Deletion")
If intA = vbYes Then
    ChDir ".."
    RmDir DeletePath
End If

End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Dir1_Change()
ChDir Dir1.Path
File1.Path = Dir1.Path

StrDirPath = Dir1.Path
Label1.Caption = StrDirPath

End Sub

Private Sub Drive1_Change()
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()
StrFilePath = File1.Path

If Right(File1.Path, 1) <> "\" Then
    StrFilePath = StrFilePath + "\"
End If
StrFilePath = StrFilePath + File1.List(File1.ListIndex)

Label2.Caption = StrFilePath
End Sub

